home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / SET.P < prev    next >
Text File  |  1990-09-13  |  820b  |  36 lines
  1. temp <- <primitive 110 7 >
  2. <primitive 112 temp 1        " next " \
  3.     #( #[ 16 167 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " first " \
  7.     #( #[ 16 166 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " occurrencesOf: " \
  11.     #( #[ 16 33 11 30 247 3 81 248 2 242 80 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " size " \
  15.     #( #[ 16 163 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " remove:ifAbsent: " \
  19.     #( #[ 16 33 34 216 242 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " add: " \
  23.     #( #[ 16 33 11 30 246 3 16 33 189 242 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " new " \
  27.     #( #[ 5 48 160 96 245] \
  28.     #(  ) ) >
  29.  
  30. <primitive 98 #Set \
  31.     <primitive 97 #Set #Collection #\smalltlk\prelude\set.st \
  32.     #(  #list ) \
  33.     #( #next #first #occurrencesOf: #size #remove:ifAbsent: #add: #new  ) \
  34.     temp 3 4 > >
  35.  
  36.